#!/usr/bin/perl -w

printf "Enter some lines, then press Ctrl-D:\n";
chomp(my @lines = <STDIN>);

print "1234567890" x 7,"12345\n"; # 标尺行，75
foreach(@lines){
    printf "%20s\n", $_;
}
